home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 February: Tool Chest / Dev.CD Feb 97 TC.toast / Sample Code / Interapplication Communication / MenuScripter 4.0 / Sources / MSAESave.c < prev    next >
Encoding:
Text File  |  1996-07-09  |  3.8 KB  |  159 lines  |  [TEXT/CWIE]
  1. // MSAESave.c
  2. //
  3. // Original version by Jon Lansdell and Nigel Humphreys.
  4. // 4.0 and 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1996, all rights reserved.
  6.  
  7. #include "MSAESave.h"
  8.  
  9. #include "MSAEUtils.h"
  10. #include "MSWindow.h"        // for DPtrFromWindowPtr()
  11. #include "MSFile.h"            // for DoSave() etc…
  12. #include "MSAEWindowUtils.h"
  13.  
  14.  
  15. // -----------------------------------------------------------------------
  16. //    Name:             DoSaveWindow
  17. //    Purpose:        Handles the Save AppleEvent.
  18. // -----------------------------------------------------------------------
  19.  
  20. #pragma segment File
  21.  
  22. pascal OSErr DoSaveWindow(const AppleEvent    *theAppleEvent,
  23.                                 AppleEvent    *reply,
  24.                                 long        handlerRefCon)
  25. { 
  26. #ifdef __MWERKS__
  27.     #pragma unused (reply, handlerRefCon)
  28. #endif
  29.  
  30.     AEDesc            directObj = {typeNull, NULL};
  31.     Size            actualSize;
  32.     DescType        returnedType;
  33.     FSSpec            destFSSpec;
  34.     
  35.     WindowToken        aWindowToken;
  36.     OSErr            err;
  37.     
  38.         // pick up the direct object
  39.     err = AEGetParamDesc( theAppleEvent, keyDirectObject, typeWildCard, &directObj );
  40.                                                  
  41.         // pick up optional destination param, if any
  42.     if ( noErr != AEGetParamPtr( theAppleEvent, keyAEFile, typeFSS, &returnedType,
  43.                                         (Ptr)&destFSSpec, sizeof( destFSSpec ), &actualSize ) )
  44.     {
  45.         destFSSpec.vRefNum = 0;
  46.         destFSSpec.parID = 0;
  47.     }
  48.  
  49.     err = GotRequiredParams( theAppleEvent );
  50.     if (noErr != err) goto done;
  51.     
  52.     if ( typeNull != directObj.descriptorType )
  53.         err = SaveDesc( &directObj, &destFSSpec );
  54.     else if ( GetNthDocument( 1 ) )
  55.     {
  56.         aWindowToken.tokenWindow = GetNthDocument( 1 );
  57.     
  58.         err = SaveDocumentToken( &aWindowToken, &destFSSpec );
  59.     }
  60.     else
  61.         err = errAENoSuchObject;
  62.   
  63. done:
  64.     (void)AEDisposeDesc( &directObj );
  65.             
  66.     return err;
  67. }    // DoSaveWindow
  68.  
  69.  
  70. OSErr    SaveDocumentToken(WindowToken* theToken, FSSpec* destFSSpec)
  71. {
  72.     DPtr            docPtr;
  73.     OSErr            err;
  74.     
  75.     docPtr = DPtrFromWindowPtr(theToken->tokenWindow);
  76.     
  77.     if (! docPtr)
  78.         return errAEWrongDataType;
  79.  
  80.     if (docPtr->everSaved == false && ! destFSSpec->vRefNum && ! destFSSpec->parID) 
  81.         return(kAEGenericErr);        // Never been saved and no destination to save
  82.     
  83.     if (destFSSpec->vRefNum || destFSSpec->parID)    // We were given a destination
  84.         err = DoSave(docPtr, *destFSSpec);
  85.     else
  86.         err = SaveUsingTemp(docPtr);
  87.  
  88.     return(err);
  89. }
  90.  
  91.  
  92. OSErr    SaveDocumentDesc(AEDesc* windowDesc, FSSpec* destFSSpec)
  93. {
  94.     WindowToken        aWindowToken;
  95.     Size            actualSize;
  96.     OSErr            err;
  97.  
  98.     if (typeMyDocument != windowDesc->descriptorType)
  99.         return(errAETypeError);
  100.         
  101.     GetRawDataFromDescriptor(windowDesc, (Ptr)&aWindowToken, sizeof(aWindowToken), &actualSize);
  102.  
  103.     err = SaveDocumentToken(&aWindowToken, destFSSpec);
  104.     
  105.     return(err);
  106. }
  107.  
  108.  
  109. OSErr    SaveDesc(AEDesc* aDesc, FSSpec* destFSSpec)
  110. {
  111.     AEDesc        saveDesc = {typeNull, NULL},
  112.                 windowDesc = {typeNull, NULL},
  113.                 itemDesc = {typeNull, NULL};
  114.     long        itemCount,
  115.                 index;
  116.     DescType    theAEKeyword;
  117.     OSErr        err;
  118.     
  119.     if (typeObjectSpecifier == aDesc->descriptorType)
  120.         err = AEResolve(aDesc, kAEIDoMinimum, &saveDesc);
  121.     else if (typeNull != aDesc->descriptorType)
  122.         err = AEDuplicateDesc(aDesc, &saveDesc);
  123.         
  124.     if (noErr != err) goto done;
  125.     
  126.     switch (saveDesc.descriptorType)
  127.     {
  128.         case typeAEList:
  129.             err = AECountItems(&saveDesc, &itemCount);
  130.             if (noErr != err) goto done;
  131.             
  132.             for (index = 1; index <= itemCount; index++)    // Do front back order
  133.             {
  134.                 err = AEGetNthDesc(&saveDesc, index, typeWildCard, &theAEKeyword, &itemDesc);
  135.                 if (noErr != err) goto done;
  136.                 
  137.                 err = SaveDesc(&itemDesc, destFSSpec);        // Call recursively
  138.                 if (noErr != err) goto done;
  139.  
  140.                 if (itemDesc.dataHandle)
  141.                     AEDisposeDesc(&itemDesc);
  142.             }
  143.             break;
  144.             
  145.         default:
  146.             err = AECoerceDesc(&saveDesc, typeMyDocument, &windowDesc);
  147.             if (noErr != err) goto done;
  148.             err = SaveDocumentDesc(&windowDesc, destFSSpec);
  149.     }
  150.     
  151. done:
  152.     (void)AEDisposeDesc(&saveDesc);
  153.     (void)AEDisposeDesc(&windowDesc);
  154.     (void)AEDisposeDesc(&itemDesc);
  155.     
  156.     return(err);
  157. }
  158.  
  159.